object Viewer: TViewer Left = 222 Top = 148 Width = 550 Height = 432 Caption = 'CDviewer' Font.Color = clWindowText Font.Height = -10 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True Menu = HoofdMenu OnClose = FormClose OnCreate = FormCreate OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Boom: TTreeView Left = 0 Top = 24 Width = 542 Height = 328 Indent = 19 OnEdited = BoomEdited OnExpanding = BoomExpanding OnChange = BoomChange Align = alClient ParentColor = False TabOrder = 0 OnMouseDown = BoomMouseDown OnMouseMove = BoomMouseMove OnMouseUp = BoomMouseUp OnKeyPress = BoomKeyPress PopupMenu = PopupMenu Images = ImageList1 end object ProgressBar: TProgressBar Left = 0 Top = 352 Width = 542 Height = 14 Align = alBottom Min = 0 Max = 100 TabOrder = 1 end object StatusBar: TStatusBar Left = 0 Top = 366 Width = 542 Height = 20 Panels = < item Text = 'Just a moment....' Width = 2000 end> SimplePanel = False end object Panel1: TPanel Left = 0 Top = 0 Width = 542 Height = 24 Align = alTop TabOrder = 3 object SpeedButtonReload: TSpeedButton Left = 0 Top = 2 Width = 20 Height = 20 Hint = 'Reload original data' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333FFFFFFFFF333333000000000033333377777777773333330FFFFF FFF03333337F333333373333330FFFFFFFF03333337F3FF3FFF73333330F00F0 00F03333F37F773777373330330FFFFFFFF03337FF7F3F3FF3F73339030F0800 F0F033377F7F737737373339900FFFFFFFF03FF7777F3FF3FFF70999990F00F0 00007777777F7737777709999990FFF0FF0377777777FF37F3730999999908F0 F033777777777337F73309999990FFF0033377777777FFF77333099999000000 3333777777777777333333399033333333333337773333333333333903333333 3333333773333333333333303333333333333337333333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuReloadClick end object SpeedButtonSave: TSpeedButton Left = 20 Top = 2 Width = 20 Height = 20 Hint = 'Save data' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888 00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888 00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000 00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF 00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF 0003737FFFFFFFFF7F73300999999999003337777777777777330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuSaveClick end object SpeedButtonExitNoSave: TSpeedButton Left = 39 Top = 2 Width = 20 Height = 20 Hint = 'Exit, no save' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333999993333333333F77777FFF333333999999999 3333333777333777FF3333993333339993333377FF3333377FF3399993333339 993337777FF3333377F3393999333333993337F777FF333337FF993399933333 399377F3777FF333377F993339993333399377F33777FF33377F993333999333 399377F333777FF3377F993333399933399377F3333777FF377F993333339993 399377FF3333777FF7733993333339993933373FF3333777F7F3399933333399 99333773FF3333777733339993333339933333773FFFFFF77333333999999999 3333333777333777333333333999993333333333377777333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuExitNoSaveClick end object SpeedButtonExitAndSave: TSpeedButton Left = 59 Top = 2 Width = 20 Height = 20 Hint = 'Exit and save' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070 7700333333337777777733333333008088003333333377F73377333333330088 88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000 000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039 99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999 99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339 99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999 93337FFFF7737777733300000033333333337777773333333333} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuExitAndSaveClick end object SpeedButtonEdit: TSpeedButton Left = 98 Top = 2 Width = 20 Height = 20 Hint = 'Edit item' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000 000033333377777777773333330FFFFFFFF03FF3FF7FF33F3FF700300000FF0F 00F077F777773F737737E00BFBFB0FFFFFF07773333F7F3333F7E0BFBF000FFF F0F077F3337773F3F737E0FBFBFBF0F00FF077F3333FF7F77F37E0BFBF00000B 0FF077F3337777737337E0FBFBFBFBF0FFF077F33FFFFFF73337E0BF0000000F FFF077FF777777733FF7000BFB00B0FF00F07773FF77373377373330000B0FFF FFF03337777373333FF7333330B0FFFF00003333373733FF777733330B0FF00F 0FF03333737F37737F373330B00FFFFF0F033337F77F33337F733309030FFFFF 00333377737FFFFF7733333033000000033333373377777773330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuEditItemClick end object SpeedButtonDelete: TSpeedButton Left = 117 Top = 2 Width = 20 Height = 20 Hint = 'Delete item' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00500005000555 555557777F777555F55500000000555055557777777755F75555005500055055 555577F5777F57555555005550055555555577FF577F5FF55555500550050055 5555577FF77577FF555555005050110555555577F757777FF555555505099910 555555FF75777777FF555005550999910555577F5F77777775F5500505509990 3055577F75F77777575F55005055090B030555775755777575755555555550B0 B03055555F555757575755550555550B0B335555755555757555555555555550 BBB35555F55555575F555550555555550BBB55575555555575F5555555555555 50BB555555555555575F555555555555550B55555555555555750000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuDeleteClick end object SpeedButtonAddCd: TSpeedButton Left = 156 Top = 2 Width = 20 Height = 20 Hint = 'Add new CD' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333FFFFF3333333333000003333333333F777773FF333333008F88800 33333337733333773F33330FFF8F888F033333733333333373F330DEFFF8F8FE D03337F33333333337F330DDEFFFFFEDD0333733333FFF33373F0BBFDE000EDF BB037F33337773F3337F0AABB08880BBAA037F3337F3F7F3337F0EEAA08080AA EE037F3337F737F3337F0AABB08880BBAA037F33373FF733337F0BBFDE000EDB BB0373F333777333337330DDEFFFFFEDD03337F33333333337F330DEF8F8FFFE D033373F333333333733330FFF8F8FFF03333373FF33333F733333300FF8F800 3333333773FFFF773333333330000033333333333777773333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = MenuAddCDClick end object SpeedButtonInsert: TSpeedButton Left = 137 Top = 2 Width = 20 Height = 20 Hint = 'Insert song' AllowAllUp = True GroupIndex = 1 Glyph.Data = { 78010000424D7801000000000000760000002800000020000000100000000100 04000000000000000000120B0000120B00000000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 333333333333333333FF3333333333333003333333333333377F333333333333 30003FFFFFFFFFFFF77707777777777777707777777777777777033333333333 33307FFFFFFFFFFFFFF707777777700777707777777777777777030333333000 33307F7FFFFFF777FFF707770077777077707777777777777777030300033330 33307F7F777FFFF7FFF707777707777077777777777777777777033333033330 33337FFFFF7FFFF7FFFF07777707777077777777777777777777333333000000 3333333333777777F33333333303333033333333337FFFF7F333333333000000 33333333337777773333333333333333333333333333333333330000} NumGlyphs = 2 ParentShowHint = False ShowHint = True OnClick = Insertsong1Click end end object ImageList1: TImageList Left = 512 Bitmap = { 360C000003000000424D360C0000000000003604000028000000400000002000 0000010008000000000000080000000000000000000000000000000000000000 0000000080000080000000808000800000008000800080800000C0C0C0007F7F 7F00F0CAA6000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 0000000000000000000000000000000000000000000000000000000000000000 00000000000000000000000000000000000000000000E0E0E000A4A0A0008080 80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF001600 00000000000018B1E47612B1E47666ABE1760CB1E47606B1E47600B1E476FAB0 E476F4B0E476EEB0E476E8B0E4769201B001C801EC0110023A0258027602307F E176000000000281E1760217DE762417DE76000000000000000000000000307F E1760281E1760217DE76000000000000000000000000509EDF768017DE762173 E1760000000000000000000000006673E176C373E1761074E176000000003F74 E1766E74E17600000000AB74E176CA74E176DB74E176EC74E17600000000EEB0 E476E8B0E4769201B001C801EC0110023A02580276029A02E8021E0354037203 8403A203C003DE03F003020400006272E176000000009F72E176E072E1768216 DE76000000000000000000000000D0B9DF769816DE76050000000000000018B1 E47612B1E47666ABE1760CB1E47606B1E47600B1E476FAB0E476F4B0E476EEB0 E476E8B0E47626016E0100000000C771E1762172E176307FE176000000000281 E1768216DE768416DE76000000000000000000000000307FE1760281E176FA15 DE76000000000000000000000000C054DF761816DE76070000000000000018B1 E47612B1E47666ABE1760CB1E47606B1E47600B1E476FAB0E476F4B0E476C000 E400FC000E018671E176000000000000000000000000307FE176000000000281 E176FA15DE76FC15DE76000000000000000000000000307FE1760281E1760000 0000000000002077DE769015DE76070000000000000018B1E47612B1E47666AB E1760CB1E47606B1E47600B1E476FAB0E476F4B0E476EEB0E476E8B0E4760000 000000000000000000002571E176307FE176000000000281E1767215DE767415 DE76000000000000000000000000307FE1760281E1767215DE76000000004941 4E540000000049547970654C6962320000004954797065496E666F3200004953 7570706F72744572726F72496E666F00000000000000000018003C006C000000 0000000000004944697370617463680000004954797065496E666F0000004954 7970654C6962000000004954797065436F6D7000000049456E756D5641522015 DE762C15DE763815DE764815DE765415DE766015DE760000000000000000E889 E1769014DE76B814DE76000000001789E176080002000000000000000000081D 1E00F8C40A00F8720A00CCCCCCCCC815DE76B817DE76A819DE76D016DE765016 DE76701ADE76F818DE76F81ADE7600000000000000000815DE761415DE760000 000003000000708D000010910700103F0700000000005A32F431000000000600 000078A60200801E080080CC0700000000005A32F43100000000020000007B44 D07FB480D27F748ED27FB3A2D27F858DD27F3CA1D27F00000000000000005A32 F43100000000040000001001000000900700003E0700000000005A32F431FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF07070707070707070707070707070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFA291D27F988CD27F8844D07F4787D27FFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF07070707070707070707070707070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFC415EDBF3A1AEDBFBA17EDBFD416EDBFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF07070707070707070707070707070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF6157F7BF4477F7BF000000000E21EDBFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF070707FFFF FFFFFFFFFFFFFFFFFFFF00FFFFFF2A66F9BF32ECFABF5FA0F8BFF846F9BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF070707FFFF FFFFFFFFFFFFFFFFFFFFFF00FFFF20E6F7BF677CF7BFA0CAF9BFCF80F9BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFF00FF82DEF9BFB37AF7BFBE4CFABF1F2AF8BFFF00 FF00FF00FF00FF00FF00FF00FF00FFFFFFFFFFFFFFFFFF000000FF070707FF00 FF00FF00FF00FF00FF00FF00FF009378F7BF06CBF9BFD17AF7BF11FCF7BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFF00FF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFF00FFBECBF9BF7BA9F9BFBE4CFABF76E5F8BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFFFF00FF070707FFFF FFFFFFFFFFFFFFFFFFFFFF00FFFFEB42F9BFF885F8BF9A4CFABF556DF7BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFF00FF070707FFFF FFFFFFFFFFFFFFFFFFFF00FFFFFF5B75F3BF0329F3BFE110F3BF9F24F3BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFF00FF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF231CF3BFBA50F3BF9C43F3BF111CF3BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFF00FF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFF910F3BF9724F3BF9B24F3BFBC23F3BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFAA47F6BF00000000B644F3BF172EF3BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFF00FF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF2B51F6BFCD4BF6BF7E43F6BF274BF6BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000FF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFF3323F6BFD938F6BFAD45F6BF3B23F6BFFFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF070707FFFF FFFFFFFFFFFFFFFFFFFFFFFFFFFFF270F77F90C3F67F7E49F97FF259F77F424D 3E010000000000003E0000002800000040000000200000000100010000000000 000100000000000000000000000000000000000000000000FFFFFF005655E376 B9A0DF76D948E3760249E376B3B4DF76A68BE0769697DF767CB4DF764349E376 984BE376C3B1DF76854AE376B58BE076BA80E076E958E3766561E376DEB3DF76 468BE076798FE0765673E076074AE376FAA0DF762D9DDF76C2B4DF76F0B9DF76 D39DDF762652E37694ACDF76DB51E3761E52E3763251E3769851E37600000000 0000E376000000000000E376000000000000E376000000000000E37600000000 0000E376000000000000E376000000000000E376000000000000E37600000000 0000E376000000000000E3760000000000000000000000000000FF5F00000000 0000208B000000000000F60F000000000000159000000000000020A1} end object DeleteTimer: TTimer Enabled = False Interval = 500 OnTimer = DeleteTimerTimer Left = 488 end object HoofdMenu: TMainMenu Left = 464 object MenuBestand: TMenuItem Caption = '&File' ShortCut = 0 object MenuReload: TMenuItem Caption = '&Reload' ShortCut = 0 OnClick = MenuReloadClick end object MenuSave: TMenuItem Caption = '&Save' ShortCut = 0 OnClick = MenuSaveClick end object MenuExitNoSave: TMenuItem Caption = 'Exit, &no save' ShortCut = 0 OnClick = MenuExitNoSaveClick end object MenuExitAndSave: TMenuItem Caption = '&Exit and save' ShortCut = 0 OnClick = MenuExitAndSaveClick end end object MenuEdit: TMenuItem Caption = '&Edit' ShortCut = 0 object MenuEditItem: TMenuItem Caption = '&Edit item' ShortCut = 0 OnClick = MenuEditItemClick end object MenuDelete: TMenuItem Caption = '&Delete item' ShortCut = 0 OnClick = MenuDeleteClick end object Insertsong1: TMenuItem Caption = '&Insert song' ShortCut = 0 OnClick = Insertsong1Click end object MenuAddCD: TMenuItem Caption = '&Add CD' ShortCut = 0 OnClick = MenuAddCDClick end end end object PopupMenu: TPopupMenu Left = 432 object PopUpEdit: TMenuItem Caption = '&Edit' ShortCut = 0 OnClick = PopUpEditClick end object PopUpDelete: TMenuItem Caption = '&Delete' ShortCut = 0 OnClick = PopUpDeleteClick end object PopUpInsert: TMenuItem Caption = '&Insert song' ShortCut = 0 OnClick = Insertsong1Click end end object MSOfficeCaption1: TMSOfficeCaption AppNameText.Caption = 'HandyCd -' AppNameText.FontKind = fkSystemB AppNameText.Visible = True CaptionText.Caption = 'CDviewer' CaptionText.FontKind = fkSystem CaptionText.Visible = True CompanyText.Caption = 'Lester is slank! producties' CompanyText.FontKind = fkSystemBI CompanyText.Visible = True Enabled = geWhenActive NumColors = 256 Left = 391 Top = 7 end end